home *** CD-ROM | disk | FTP | other *** search
/ MacHack 2000 / MacHack 2000.toast / pc / The Hacks / Genie / Projects / A-line / Scripts / MakeAlias.pl.1 < prev    next >
Encoding:
Text File  |  2000-06-24  |  692 b   |  27 lines
  1. # MakeAlias
  2.  
  3. Perl -Sx -- "{0}" {"Parameters"}
  4. Exit
  5.  
  6. #!perl
  7.  
  8. # No special treatment if $newalias is blank.
  9. # That's most likely to be a scripting error.
  10. # Use ":" to create an alias in the local directory.
  11.  
  12. my ($original, $newalias) = @ARGV;
  13. if (!symlink($original, $newalias)) {
  14.     my $name;
  15.     # Guessing that symlink failed because $newalias is a folder
  16.     # Get the base name
  17.     ($name = $original) =~ s/^(?:.*:)?(.+?):?$/$1/;
  18.     # Prepend a colon, if necessary
  19.     $newalias =~ s/^([^:]+)$/:$1/;
  20.     # Append a colon, if necessary
  21.     $newalias =~ s/([^:])$/$1:/;
  22.     # Append the original's base name
  23.     $newalias .= $name;
  24.     symlink($original, $newalias) or 
  25.         die "Couldn't link '$original' to '$newalias'";
  26. }
  27.